home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / programm / gemfsc20 / gemfsc20.lzh / GEMFBIND / VSHOWC.S < prev    next >
Text File  |  1993-03-16  |  2KB  |  55 lines
  1. ;*========================================================================
  2. ;* VDIFAST Public Domain VDI bindings.
  3. ;*========================================================================
  4.  
  5.  
  6. ;*------------------------------------------------------------------------
  7. ;* Show cursor.
  8. ;*------------------------------------------------------------------------
  9.  
  10.           globl     _v_show_c
  11. _v_show_c:
  12. ;   .cargs  #8,handle.w,rset.w
  13.  
  14. handle    =         8
  15. rset      =         10
  16.  
  17.           link      a6,#0
  18.  
  19. ;         VContrl   #122,,,#1
  20.           move.w    handle(a6),-(sp)    ; contrl[6]
  21.           clr.l     -(sp)               ; contrl[5,4]
  22.           move.w    #1,-(sp)            ; contrl[3]
  23.           subq.l    #2,sp               ; contrl[2]
  24.           clr.w     -(sp)               ; contrl[1]
  25.           move.w    #122,-(sp)          ; contrl[0]
  26.  
  27.           lea       -12(sp),sp          ;* -> ptsout, intout, ptsin
  28.           pea       rset(a6)            ;* -> intin
  29.           pea       16(sp)              ;* -> contrl
  30.  
  31.           jmp       vdicall
  32.  
  33. ;*------------------------------------------------------------------------
  34. ;* Hide cursor.
  35. ;*------------------------------------------------------------------------
  36.  
  37.           globl     _v_hide_c
  38. _v_hide_c:
  39. ;   .cargs  #8,handle.w
  40.  
  41. handle    =         8
  42.  
  43.           link      a6,#0
  44.  
  45. ;         VContrl   #123
  46.           move.w    handle(a6),-(sp)    ; contrl[6]
  47.           clr.l     -(sp)               ; contrl[5,4]
  48.           clr.l     -(sp)               ; contrl[3,2]
  49.           clr.w     -(sp)               ; contrl[1]
  50.           move.w    #123,-(sp)          ; contrl[0]
  51.           pea       (sp)                ;* -> contrl
  52.           jmp       vdicall
  53.  
  54.           end
  55.